home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / list ascii $c0.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  88 lines
  1. 5 POKE53280,9:POKE53281,9
  2. 10 PRINT"[147][155][142]        LISTER FOR ASCII PRINTER
  3. 15 [153]"DEF        VALVALVALVALVALVAL VALVALVAL VALVALVALVALVAL VALVALVALVALVALVALVAL
  4. 20 PRINT,"[129]      BY
  5. 25 [153],"STEVEN DARNOLD
  6. 30 PRINT,"P.O. BOX 201
  7. 35 [153],"ALEXANDRA, NEW ZEALAND
  8. 70 FORI=49152TO49703
  9. 80 READX:POKEI,X
  10. 90 NEXT
  11. 100 DATA169,0,133,183,133,185,169,4
  12. 101 DATA133,184,133,186,32,192,255,166
  13. 102 DATA184,32,201,255,165,43,166,44
  14. 103 DATA133,249,134,250,32,63,192,133
  15. 104 DATA247,32,57,192,133,248,208,28
  16. 105 DATA169,13,32,210,255,32,210,255
  17. 106 DATA169,4,32,195,255,32,231,255
  18. 107 DATA96,230,249,208,2,230,250,160
  19. 108 DATA0,177,249,96,32,225,255,240
  20. 109 DATA223,169,0,133,2,32,57,192
  21. 110 DATA170,32,57,192,32,205,189,169
  22. 111 DATA32,32,210,255,169,0,32,210
  23. 112 DATA255,32,57,192,208,12,169,13
  24. 113 DATA32,210,255,165,247,166,248,76
  25. 114 DATA24,192,201,34,208,8,165,2
  26. 115 DATA73,1,133,2,169,34,166,2
  27. 116 DATA208,39,170,16,217,201,255,240
  28. 117 DATA213,41,127,160,255,170,240,9
  29. 118 DATA200,185,158,160,16,250,202,208
  30. 119 DATA247,200,185,158,160,8,41,127
  31. 120 DATA32,210,255,40,16,243,76,92
  32. 121 DATA192,201,34,240,177,201,128,176
  33. 122 DATA4,201,32,176,169,169,60,32
  34. 123 DATA210,255,32,63,192,160,72,217
  35. 124 DATA228,192,240,13,136,16,248,41
  36. 125 DATA127,32,210,255,169,62,76,94
  37. 126 DATA192,190,45,193,232,189,118,193
  38. 127 DATA8,41,127,32,210,255,40,16
  39. 128 DATA243,76,204,192,17,29,145,157
  40. 129 DATA147,19,18,146,144,5,28,159
  41. 130 DATA156,30,31,158,129,149,150,151
  42. 131 DATA152,153,154,155,148,20,141,14
  43. 132 DATA142,133,137,134,138,135,139,136
  44. 133 DATA140,161,162,163,164,165,166,167
  45. 134 DATA168,169,170,171,172,173,174,175
  46. 135 DATA176,177,178,179,180,181,182,183
  47. 136 DATA184,185,186,187,188,189,190,191
  48. 137 DATA192,219,220,221,223,255,1,3
  49. 138 DATA5,7,10,12,15,18,21,24
  50. 139 DATA27,30,33,36,39,42,45,48
  51. 140 DATA52,56,60,64,68,72,75,78
  52. 141 DATA81,86,91,93,95,97,99,101
  53. 142 DATA103,105,107,109,111,113,115,117
  54. 143 DATA119,121,123,124,126,128,130,132
  55. 144 DATA134,136,138,140,142,144,146,148
  56. 145 DATA150,152,154,156,157,159,161,163
  57. 146 DATA165,167,168,169,171,172,100,238
  58. 147 DATA114,244,117,240,108,229,99,108
  59. 148 DATA242,104,237,114,118,243,111,102
  60. 149 DATA230,98,108,235,119,104,244,114
  61. 150 DATA101,228,99,121,238,112,117,242
  62. 151 DATA103,114,238,98,108,245,121,101
  63. 152 DATA236,111,114,225,98,114,238,112
  64. 153 DATA105,110,235,103,114,97,177,103
  65. 154 DATA114,97,178,108,103,114,238,108
  66. 155 DATA98,108,245,103,114,97,179,105
  67. 156 DATA110,243,100,101,236,114,101,244
  68. 157 DATA108,111,119,101,242,103,114,97
  69. 158 DATA112,232,102,177,102,178,102,179
  70. 159 DATA102,180,102,181,102,182,102,183
  71. 160 DATA102,184,42,203,42,201,42,212
  72. 161 DATA42,192,42,199,42,171,42,205
  73. 162 DATA42,220,220,42,206,42,209,42
  74. 163 DATA196,42,218,42,211,42,208,42
  75. 164 DATA193,42,197,42,210,42,215,42
  76. 165 DATA200,42,202,42,204,42,217,42
  77. 166 DATA213,42,207,192,42,198,42,195
  78. 167 DATA42,216,42,214,42,194,170,171
  79. 168 DATA42,173,173,42,170,0,0,0
  80. 200 PRINT"[147][204][201][211][212][201][206][199][160][210][207][213][212][201][206][197][160][206][207][215][160][210][197][211][201][196][197][211][160][194][197][212][215][197][197][206]
  81. 210 [153]"$LEN000 ATN(null)STR$ $LEN227.  (null)(null)VAL LIST(null)(null)(null) 12*4096 FOR
  82. 220 PRINT"[215][200][197][206][197][214][197][210][160][217][207][213][160][215][193][206][212][160][212][207][160][204][201][211][212][160][193][160][208][210][207][199][210][193][205].
  83. 230 [153]"PEEK(null)ATNLEN(null)VAL(null)(null)CLOSERIGHT$(null)STR$RIGHT$LENATN(null)VALCLOSE(null)(null)VALLENRIGHT$ATN(null)CLOSELENLEFT$ATN(null)ATNLEN(null)VAL(null)(null).
  84. 240 PRINT"[198][207][210][160][197][216][193][205][208][204][197]:  [155]<CLR>[129]  CLEAR SCREEN
  85. 250 [153],"    LIST<GRA3>FOR LIGHT GRAY
  86. 260 PRINT,"    [155]<[193]>   [129] SHIFT-[193] (SPADE)
  87. 270 [153],"    LIST<*ATN>  FOR LOGO-ATN (CORNER)DEF
  88.